home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 November / 64er_Magazin_88-11_1988_Markt__Technik_de_Side_A.d64 / see filmi2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  804b  |  28 lines
  1. 2 a=a+1:ifa=1thenload"mprun2",8,8
  2. 3 ifa=2thenload"mplight",8,8
  3. 4 ifa=4then310
  4. 5 si=54272:fort=0to24:pokesi+t,0:next
  5. 8 gosub500:restore
  6. 10 print"[147]":poke53280,0:poke53281,0
  7. 12 print"  filmdisk einlegen und"
  8. 13 input"  name des films angeben";l$
  9. 14 print"[147]":sys4096
  10. 15 dimfa(40),te$(3)
  11. 20 fort=1to33:read fa(t):next
  12. 50 fort=1to03:read te$(t):next
  13. 100 fort=1to3:fore=1to33:poke646,fa(e)
  14. 120 poke214,11:printtab(20-len(te$(t))/2)te$(t):fori=0to30:nexti,e,t
  15. 125 te$="[155]wait a little"
  16. 130 poke214,11:printtab(20-len(te$)/2)te$
  17. 200 data0,11,12,15,1,1,1,1,1,1,1,1,1,1,1,1,1,1,15,12,11,0,0,0,0,0,0,0,0,0,0,0,0
  18. 210 data "es folgt ein spitzen film"
  19. 220 data "aus dem hause lion-soft"
  20. 230 data "von helmut burgemeister"
  21. 300 load l$,8,8
  22. 310 print"[147]":poke704,4:poke816,165:poke817,244:sys828
  23. 500 poke65,peek(122):poke66,peek(123)
  24. 510 fort=0to24:reade:pokesi+t,e:next
  25. 520 data1,4,0,2,00,240,251,0,4,0,2,00,240,253,20,26,0,0,00,10,0,0,21,243,31
  26. 525 pokesi+4,65:pokesi+11,65
  27. 530 return
  28.